home *** CD-ROM | disk | FTP | other *** search
/ Aminet 51 / Aminet 51 (2002)(GTI - Schatztruhe)[!][Oct 2002].iso / Aminet / dev / misc / FlexCat.lha / Lib / E21b.sd < prev    next >
Encoding:
Text File  |  1999-11-28  |  2.0 KB  |  72 lines
  1. ##rem $Id: E21b.sd,v 1.2 1999/11/28 03:36:41 carlos Exp $
  2. ##stringtype E
  3. ##shortstrings
  4. /****************************************************************
  5.    This file was created automatically by `%fv'
  6.    from "%f0".
  7.    Do NOT edit by hand!
  8. ****************************************************************/
  9.  
  10.  
  11.         /* External modules */
  12. MODULE 'locale' , 'libraries/locale'
  13. MODULE 'utility/tagitem'
  14.  
  15.         /* Object definitions */
  16. OBJECT fc_type
  17.         id      :       LONG
  18.         str     :       LONG
  19. ENDOBJECT
  20.  
  21.         /* Global variables */
  22. DEF catalog_%b : PTR TO catalog
  23. DEF %i : fc_type
  24.  
  25.  
  26.         /* Opening catalog procedure */
  27. PROC open_%b_catalog( loc : PTR TO locale , language : PTR TO CHAR )
  28.  
  29.         DEF tag , tagarg
  30.  
  31.         %i.id := %d ; %i.str := %s
  32.  
  33.         close_%b_catalog()
  34.  
  35.         IF (localebase AND (catalog_%b = NIL))
  36.  
  37.                 IF language
  38.  
  39.                         tag := OC_LANGUAGE
  40.                         tagarg := language
  41.  
  42.                 ELSE
  43.  
  44.                         tag:= TAG_IGNORE
  45.  
  46.                 ENDIF
  47.  
  48.                 catalog_%b := OpenCatalogA( loc , '%b.catalog' ,
  49.                                                                         [       OC_BUILTINLANGUAGE , %l ,
  50.                                                                                 tag , tagarg ,
  51.                                                                                 OC_VERSION , %v ,
  52.                                                                                 TAG_DONE        ])
  53.  
  54.         ENDIF
  55.  
  56. ENDPROC
  57.  
  58.         /* Closing catalog procedure */
  59. PROC close_%b_catalog()
  60.  
  61.         IF localebase THEN CloseCatalog( catalog_%b )
  62.         catalog_%b := NIL
  63.  
  64. ENDPROC
  65.  
  66.  
  67.         /* Procedure which returns the correct string according to the catalog */
  68. PROC get_%b_string( fcstr : PTR TO fc_type ) RETURN IF catalog_%b THEN GetCatalogStr( catalog_%b , fcstr.id , fcstr.str ) ELSE fcstr.str
  69. /****************************************************************
  70.    End of the automatically created part!
  71. ****************************************************************/
  72.